PlantsModifiers Module

History

current version 1.0 - 2nd May 2019

version date comment
1.0 2/May/2019 Original code

License

license: GNU GPL http://www.gnu.org/licenses/

Module Description

Routines to compute gross primary production modifiers Implemented modifiers:

  1. Age modifier AGEmod

  2. CO2 modifier CO2mod

  3. Soil water content modifier SWCmod

  4. Air temperature modifier TEMPmod

  5. Vapor pressure deficit modifier VPDmod


Uses


Functions

public function AGEmod(age, agemax) result(f)

compute the age modifier. It modulates the maximum potential growth during the different stages of the vegetation life cycle as trees in the early stages are not as vigorous as mature trees

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: age

actual age (years)
real(kind=float), intent(in) :: agemax

maximum age (years)

Return Value real(kind=float)

public function CO2mod(co2, age) result(f)

compute CO22 modifier.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: co2

CO2 concentration (ppm)
real(kind=float), intent(in) :: age

plant age (year)

Return Value real(kind=float)

public function SWCmod(swc, wp, fc, theta) result(f)

soil water content modifier

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: swc

actual soil water content [m3/m3]
real(kind=float), intent(in) :: wp

soil wilting point [m3/m3]
real(kind=float), intent(in) :: fc

soil field capacity [m3/m3]
real(kind=float), intent(in) :: theta

empirical parameter to compute soil water content modifier

Return Value real(kind=float)

public function TEMPmod(Ta, Tmin, Tmax, Topt) result(f)

compute air temperature modifier. The growth and dormant stages of vegetation are related to the annual cycle of air temperature. Maximum growth will happen at optimal temperatures Topt and will stop when temperatures drop below or exceed certain temperature thresholds, Tmin and Tmax, respectively.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: Ta
real(kind=float), intent(in) :: Tmin
real(kind=float), intent(in) :: Tmax
real(kind=float), intent(in) :: Topt

Return Value real(kind=float)

public function VPDmod(Ta, RH, kd) result(f)

compute vapor pressure deficit modifier.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: Ta
real(kind=float), intent(in) :: RH
real(kind=float), intent(in) :: kd

Return Value real(kind=float)